home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 July / PCWorld_2001-07_cd.bin / Software / Vyzkuste / xsetup / setup.exe / {app} / plugins / XQ IE Outlook Express 10.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-05-14  |  1.9 KB  |  73 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Outlook Express\System"
  5. "NAME"="Advanced Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.00"
  8. "TEXT 1"="Enable creation of new accounts (email, news etc.)"
  9. "TEXT 2"="Enable HTTP mail accounts support"
  10. "DESCRIPTION 1"="Miscellaneous settings for Outlook Express."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="HTTP Mail option added by Neil R. Turner [totalxs@hotmail.com] after some inspiration from SΘbastien Maurice."
  15.  
  16. sValPath=""
  17. sP1="HKCU\Software\Microsoft\Outlook Express\"
  18. sP2="HKCU\Identities\Last User ID"
  19.  
  20.  
  21. sV4="HKLM\SOFTWARE\Microsoft\Outlook Express\" 'DW (1 = enable restriction)
  22.  
  23. Sub Plugin_Initialize 
  24.  'OK, let's have a look if we are running IE5...
  25.  s=RegReadValue(sP2)
  26.  if IsEmpty(s)=false then
  27.     'OK - we have a value - check if we can find OE
  28.     sValPath="HKCU\Identities\" & s & "\Software\Microsoft\Outlook Express\5.0\"
  29.     If RegPathExists(sValPath) then
  30.        'OE5 !
  31.        sValPath=sValPath '& sValue
  32.     else
  33.        sValPath=sP1 '& sValue
  34.     end if 
  35.  else
  36.     sValPath=sP1 '& sValue
  37.  end if
  38.  
  39.  
  40.  i=RegReadValue(sV4 & "No Modify Accts")
  41.  if i<>1 then
  42.     Call SetUIElement(1,True)
  43.  end if
  44.  
  45.  i=RegReadValue(sV4 & "HTTP Mail Enabled")
  46.  if i=1 then
  47.     Call SetUIElement(2,True)
  48.  end if
  49.  
  50. ' else
  51. '  Disable
  52. ' end if
  53. End Sub
  54.  
  55. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  56.  i=GetUIElement(1)
  57.  if i=true then
  58.     If RegValueExists(sV4 & "No Modify Accts") then Call RegDeleteValue(sV4 & "No Modify Accts")
  59.  else
  60.     Call RegWriteValue(sV4 & "No Modify Accts",1,2)
  61.  end if
  62.  
  63.  i=GetUIElement(2)
  64.  if i=true then
  65.     Call RegWriteValue(sV4 & "HTTP Mail Enabled",1,2)
  66.  else
  67.     If RegValueExists(sV4 & "HTTP Mail Enabled") then Call RegDeleteValue(sV4 & "HTTP Mail Enabled")
  68.  end if
  69. End Sub
  70.  
  71. Sub Plugin_Terminate 
  72. End Sub
  73.